home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 13 / Big_Mouth_The_13_1996_-_Side_C.d64 / reaction test 3 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  894b  |  31 lines
  1. 5 rem ** reaction test 3 **
  2. 10 a=rnd(-ti):poke 53280,5:poke 53281,11
  3. 20 poke 214,5:print:poke 211,6
  4. 30 print"[147][155]        test of reaction time 3 "
  5. 35 print"when a letter appears on screen, you"
  6. 40 print"have to press that key as soon as       possible"
  7. 50 print""tab(10)"the reaction test:"
  8. 60 fort=1 to 1500:nextt
  9. 70 a$=chr$(int(rnd(0)*26)+65)
  10. 90 print"find this key:  ";
  11. 100 fort=1 to int(5000*rnd(1))+500:nextt
  12. 110 print a$:ti$="000000"
  13. 120 getr$:if r$="" then 120
  14. 130 if r$<>a$ then 120
  15. 140 t=ti/60
  16. 150 print"you took";t;"seconds"
  17. 160 gosub 200
  18. 170 fort=1 to 500:nextt
  19. 175 print"do you want 'nother go???"
  20. 180 get z$:if z$="y" then 20
  21. 185 if z$<>"n"then 180
  22. 190 fort=1 to 500:next:load"the main menu/bm",8,1
  23. 200 if t<=.55 then print"bloody hell! it's superman!":return
  24. 205 if t<=.8 then print"excellent reactions!":return
  25. 210 if t<1.3 then print"pretty good!":return
  26. 220 if t<1.8 then print"not bad":return
  27. 230 if t<2.3 then print"getting a bit slow!":return
  28. 240 print"you've got great reactions..."
  29. 245 fort=1 to 1000:next
  30. 250 print"for a snail!!!!!!!!":return
  31.